<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><link rel="stylesheet" type="text/css" href="style.css" /><script type="text/javascript" src="highlight.js"></script></head><body><pre><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">Data.Time.Format.Parse.Class</span><span>
</span><span id="line-2"></span><span>    </span><span class="hs-special">(</span><span>
</span><span id="line-3"></span><span>        </span><span class="annot"><span class="hs-comment">-- * Parsing</span></span><span>
</span><span id="line-4"></span><span>        </span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#ParseNumericPadding"><span class="hs-identifier">ParseNumericPadding</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span>
</span><span id="line-5"></span><span>        </span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#ParseTime"><span class="hs-identifier">ParseTime</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span>
</span><span id="line-6"></span><span>        </span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#parseSpecifiers"><span class="hs-identifier">parseSpecifiers</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-7"></span><span>        </span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#timeSubstituteTimeSpecifier"><span class="hs-identifier">timeSubstituteTimeSpecifier</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-8"></span><span>        </span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#timeParseTimeSpecifier"><span class="hs-identifier">timeParseTimeSpecifier</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-9"></span><span>        </span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#durationParseTimeSpecifier"><span class="hs-identifier">durationParseTimeSpecifier</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-10"></span><span>    </span><span class="hs-special">)</span><span>
</span><span id="line-11"></span><span>    </span><span class="hs-keyword">where</span><span>
</span><span id="line-12"></span><span>
</span><span id="line-13"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Control.Applicative.html#"><span class="hs-identifier">Control.Applicative</span></a></span><span> </span><span class="hs-keyword">hiding</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/Control.Applicative.html#optional"><span class="hs-identifier">optional</span></a></span><span class="hs-special">,</span><span class="annot"><a href="../../base/src/GHC.Base.html#many"><span class="hs-identifier">many</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-14"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Data.Char.html#"><span class="hs-identifier">Data.Char</span></a></span><span>
</span><span id="line-15"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Data.Maybe.html#"><span class="hs-identifier">Data.Maybe</span></a></span><span>
</span><span id="line-16"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.Format.Locale.html"><span class="hs-identifier">Data.Time.Format.Locale</span></a></span><span>
</span><span id="line-17"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Text.ParserCombinators.ReadP.html#"><span class="hs-identifier">Text.ParserCombinators.ReadP</span></a></span><span>
</span><span id="line-18"></span><span>
</span><span id="line-19"></span><span class="hs-keyword">data</span><span> </span><span id="ParseNumericPadding"><span class="annot"><a href="Data.Time.Format.Parse.Class.html#ParseNumericPadding"><span class="hs-identifier hs-var">ParseNumericPadding</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="NoPadding"><span class="annot"><a href="Data.Time.Format.Parse.Class.html#NoPadding"><span class="hs-identifier hs-var">NoPadding</span></a></span></span><span> </span><span class="hs-glyph">|</span><span> </span><span id="SpacePadding"><span class="annot"><a href="Data.Time.Format.Parse.Class.html#SpacePadding"><span class="hs-identifier hs-var">SpacePadding</span></a></span></span><span> </span><span class="hs-glyph">|</span><span> </span><span id="ZeroPadding"><span class="annot"><a href="Data.Time.Format.Parse.Class.html#ZeroPadding"><span class="hs-identifier hs-var">ZeroPadding</span></a></span></span><span>
</span><span id="line-20"></span><span>
</span><span id="line-21"></span><span class="hs-comment">-- | The class of types which can be parsed given a UNIX-style time format</span><span>
</span><span id="line-22"></span><span class="hs-comment">-- string.</span><span>
</span><span id="line-23"></span><span class="hs-keyword">class</span><span> </span><span id="ParseTime"><span class="annot"><a href="Data.Time.Format.Parse.Class.html#ParseTime"><span class="hs-identifier hs-var">ParseTime</span></a></span></span><span> </span><span id="local-6989586621679072515"><span class="annot"><a href="#local-6989586621679072515"><span class="hs-identifier hs-type">t</span></a></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-24"></span><span>    </span><span class="hs-comment">-- | @since 1.9.1</span><span>
</span><span id="line-25"></span><span>    </span><span id="local-6989586621679072516"><span id="substituteTimeSpecifier"><span class="annot"><a href="Data.Time.Format.Parse.Class.html#substituteTimeSpecifier"><span class="hs-identifier hs-type">substituteTimeSpecifier</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="#local-6989586621679072516"><span class="hs-identifier hs-type">proxy</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679072515"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Time.Format.Locale.html#TimeLocale"><span class="hs-identifier hs-type">TimeLocale</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Char</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span></span><span>
</span><span id="line-26"></span><span>    </span><span id="local-6989586621679072422"><span class="annot"><a href="Data.Time.Format.Parse.Class.html#substituteTimeSpecifier"><span class="hs-identifier hs-var hs-var">substituteTimeSpecifier</span></a></span><span> </span><span class="annot"><span class="annottext">proxy t
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe String
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span></span><span>
</span><span id="line-27"></span><span>    </span><span class="hs-comment">-- | Get the string corresponding to the given format specifier.</span><span>
</span><span id="line-28"></span><span>    </span><span class="hs-comment">--</span><span>
</span><span id="line-29"></span><span>    </span><span class="hs-comment">-- @since 1.9.1</span><span>
</span><span id="line-30"></span><span>    </span><span id="local-6989586621679072497"><span id="parseTimeSpecifier"><span class="annot"><a href="Data.Time.Format.Parse.Class.html#parseTimeSpecifier"><span class="hs-identifier hs-type">parseTimeSpecifier</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="#local-6989586621679072497"><span class="hs-identifier hs-type">proxy</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679072515"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Time.Format.Locale.html#TimeLocale"><span class="hs-identifier hs-type">TimeLocale</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#ParseNumericPadding"><span class="hs-identifier hs-type">ParseNumericPadding</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Char</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/Text.ParserCombinators.ReadP.html#ReadP"><span class="hs-identifier hs-type">ReadP</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span></span><span>
</span><span id="line-31"></span><span>    </span><span class="hs-comment">-- | Builds a time value from a parsed input string.</span><span>
</span><span id="line-32"></span><span>    </span><span class="hs-comment">-- If the input does not include all the information needed to</span><span>
</span><span id="line-33"></span><span>    </span><span class="hs-comment">-- construct a complete value, any missing parts should be taken</span><span>
</span><span id="line-34"></span><span>    </span><span class="hs-comment">-- from 1970-01-01 00:00:00 +0000 (which was a Thursday).</span><span>
</span><span id="line-35"></span><span>    </span><span class="hs-comment">-- In the absence of @%C@ or @%Y@, century is 1969 - 2068.</span><span>
</span><span id="line-36"></span><span>    </span><span class="hs-comment">--</span><span>
</span><span id="line-37"></span><span>    </span><span class="hs-comment">-- @since 1.9.1</span><span>
</span><span id="line-38"></span><span>    </span><span id="buildTime"><span class="annot"><a href="Data.Time.Format.Parse.Class.html#buildTime"><span class="hs-identifier hs-type">buildTime</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Time.Format.Locale.html#TimeLocale"><span class="hs-identifier hs-type">TimeLocale</span></a></span><span> </span><span class="hs-comment">-- ^ The time locale.</span><span>
</span><span id="line-39"></span><span>              </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Char</span></span><span class="hs-special">,</span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">)</span><span class="hs-special">]</span><span> </span><span class="hs-comment">-- ^ Pairs of format characters and the</span><span>
</span><span id="line-40"></span><span>                                 </span><span class="hs-comment">-- corresponding part of the input.</span><span>
</span><span id="line-41"></span><span>              </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679072515"><span class="hs-identifier hs-type">t</span></a></span><span>
</span><span id="line-42"></span><span>
</span><span id="line-43"></span><span class="hs-comment">-- | Case-insensitive version of 'Text.ParserCombinators.ReadP.char'.</span><span>
</span><span id="line-44"></span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#charCI"><span class="hs-identifier hs-type">charCI</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Char</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/Text.ParserCombinators.ReadP.html#ReadP"><span class="hs-identifier hs-type">ReadP</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Char</span></span><span>
</span><span id="line-45"></span><span id="charCI"><span class="annot"><span class="annottext">charCI :: Char -&gt; ReadP Char
</span><a href="Data.Time.Format.Parse.Class.html#charCI"><span class="hs-identifier hs-var hs-var">charCI</span></a></span></span><span> </span><span id="local-6989586621679072418"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072418"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(Char -&gt; Bool) -&gt; ReadP Char
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#satisfy"><span class="hs-identifier hs-var">satisfy</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span id="local-6989586621679072416"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072416"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Char -&gt; Char
</span><a href="../../base/src/GHC.Unicode.html#toUpper"><span class="hs-identifier hs-var">toUpper</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072418"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Char -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">==</span></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Char
</span><a href="../../base/src/GHC.Unicode.html#toUpper"><span class="hs-identifier hs-var">toUpper</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072416"><span class="hs-identifier hs-var">x</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-46"></span><span>
</span><span id="line-47"></span><span class="hs-comment">-- | Case-insensitive version of 'Text.ParserCombinators.ReadP.string'.</span><span>
</span><span id="line-48"></span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#stringCI"><span class="hs-identifier hs-type">stringCI</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/Text.ParserCombinators.ReadP.html#ReadP"><span class="hs-identifier hs-type">ReadP</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-49"></span><span id="stringCI"><span class="annot"><span class="annottext">stringCI :: String -&gt; ReadP String
</span><a href="Data.Time.Format.Parse.Class.html#stringCI"><span class="hs-identifier hs-var hs-var">stringCI</span></a></span></span><span> </span><span id="local-6989586621679072413"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072413"><span class="hs-identifier hs-var">this</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-50"></span><span>    </span><span class="hs-keyword">let</span><span>
</span><span id="line-51"></span><span>        </span><span id="local-6989586621679072409"><span class="annot"><span class="annottext">scan :: String -&gt; String -&gt; ReadP String
</span><a href="#local-6989586621679072409"><span class="hs-identifier hs-var hs-var">scan</span></a></span></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -&gt; ReadP String
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072413"><span class="hs-identifier hs-var">this</span></a></span><span>
</span><span id="line-52"></span><span>        </span><span class="annot"><a href="#local-6989586621679072409"><span class="hs-identifier hs-var">scan</span></a></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679072408"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072408"><span class="hs-identifier hs-var">x</span></a></span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679072407"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072407"><span class="hs-identifier hs-var">xs</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679072406"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072406"><span class="hs-identifier hs-var">y</span></a></span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679072405"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072405"><span class="hs-identifier hs-var">ys</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Char -&gt; Char
</span><a href="../../base/src/GHC.Unicode.html#toUpper"><span class="hs-identifier hs-var">toUpper</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072408"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Char -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">==</span></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Char
</span><a href="../../base/src/GHC.Unicode.html#toUpper"><span class="hs-identifier hs-var">toUpper</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072406"><span class="hs-identifier hs-var">y</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-53"></span><span>            </span><span class="annot"><span class="annottext">Char
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">ReadP Char
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#get"><span class="hs-identifier hs-var">get</span></a></span><span>
</span><span id="line-54"></span><span>            </span><span class="annot"><span class="annottext">String -&gt; String -&gt; ReadP String
</span><a href="#local-6989586621679072409"><span class="hs-identifier hs-var">scan</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072407"><span class="hs-identifier hs-var">xs</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072405"><span class="hs-identifier hs-var">ys</span></a></span><span>
</span><span id="line-55"></span><span>        </span><span class="annot"><a href="#local-6989586621679072409"><span class="hs-identifier hs-var">scan</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ReadP String
forall a. ReadP a
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#pfail"><span class="hs-identifier hs-var">pfail</span></a></span><span>
</span><span id="line-56"></span><span>    </span><span id="local-6989586621679072402"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072402"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">ReadP String
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#look"><span class="hs-identifier hs-var">look</span></a></span><span>
</span><span id="line-57"></span><span>    </span><span class="annot"><span class="annottext">String -&gt; String -&gt; ReadP String
</span><a href="#local-6989586621679072409"><span class="hs-identifier hs-var">scan</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072413"><span class="hs-identifier hs-var">this</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072402"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-58"></span><span>
</span><span id="line-59"></span><span id="local-6989586621679072505"><span id="local-6989586621679072506"><span class="annot"><a href="Data.Time.Format.Parse.Class.html#parseSpecifiers"><span class="hs-identifier hs-type">parseSpecifiers</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#ParseTime"><span class="hs-identifier hs-type">ParseTime</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679072506"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="#local-6989586621679072505"><span class="hs-identifier hs-type">proxy</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679072506"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Time.Format.Locale.html#TimeLocale"><span class="hs-identifier hs-type">TimeLocale</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/Text.ParserCombinators.ReadP.html#ReadP"><span class="hs-identifier hs-type">ReadP</span></a></span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Char</span></span><span class="hs-special">,</span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">)</span><span class="hs-special">]</span></span></span><span>
</span><span id="line-60"></span><span id="parseSpecifiers"><span class="annot"><span class="annottext">parseSpecifiers :: forall t (proxy :: * -&gt; *).
ParseTime t =&gt;
proxy t -&gt; TimeLocale -&gt; String -&gt; ReadP [(Char, String)]
</span><a href="Data.Time.Format.Parse.Class.html#parseSpecifiers"><span class="hs-identifier hs-var hs-var">parseSpecifiers</span></a></span></span><span> </span><span id="local-6989586621679072387"><span class="annot"><span class="annottext">proxy t
</span><a href="#local-6989586621679072387"><span class="hs-identifier hs-var">pt</span></a></span></span><span> </span><span id="local-6989586621679072386"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072386"><span class="hs-identifier hs-var">locale</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-61"></span><span>    </span><span class="annot"><a href="#local-6989586621679072385"><span class="hs-identifier hs-type">parse</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/Text.ParserCombinators.ReadP.html#ReadP"><span class="hs-identifier hs-type">ReadP</span></a></span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Char</span></span><span class="hs-special">,</span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">)</span><span class="hs-special">]</span><span>
</span><span id="line-62"></span><span>    </span><span id="local-6989586621679072385"><span class="annot"><span class="annottext">parse :: String -&gt; ReadP [(Char, String)]
</span><a href="#local-6989586621679072385"><span class="hs-identifier hs-var hs-var">parse</span></a></span></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[(Char, String)] -&gt; ReadP [(Char, String)]
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span>
</span><span id="line-63"></span><span>    </span><span class="annot"><a href="#local-6989586621679072385"><span class="hs-identifier hs-var">parse</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'%'</span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679072384"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072384"><span class="hs-identifier hs-var">cs</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -&gt; ReadP [(Char, String)]
</span><a href="#local-6989586621679072383"><span class="hs-identifier hs-var">parse1</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072384"><span class="hs-identifier hs-var">cs</span></a></span><span>
</span><span id="line-64"></span><span>    </span><span class="annot"><a href="#local-6989586621679072385"><span class="hs-identifier hs-var">parse</span></a></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679072382"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072382"><span class="hs-identifier hs-var">c</span></a></span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679072381"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072381"><span class="hs-identifier hs-var">cs</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Char -&gt; Bool
</span><a href="../../base/src/GHC.Unicode.html#isSpace"><span class="hs-identifier hs-var">isSpace</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072382"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-65"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">(Char -&gt; Bool) -&gt; ReadP Char
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#satisfy"><span class="hs-identifier hs-var">satisfy</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Bool
</span><a href="../../base/src/GHC.Unicode.html#isSpace"><span class="hs-identifier hs-var">isSpace</span></a></span><span>
</span><span id="line-66"></span><span>        </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072381"><span class="hs-identifier hs-var">cs</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-67"></span><span>            </span><span class="hs-special">(</span><span id="local-6989586621679072379"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072379"><span class="hs-identifier hs-var">c'</span></a></span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span class="annot"><span class="annottext">String
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Char -&gt; Bool
</span><a href="../../base/src/GHC.Unicode.html#isSpace"><span class="hs-identifier hs-var">isSpace</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072379"><span class="hs-identifier hs-var">c'</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">() -&gt; ReadP ()
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-68"></span><span>            </span><span class="annot"><span class="annottext">String
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">ReadP ()
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#skipSpaces"><span class="hs-identifier hs-var">skipSpaces</span></a></span><span>
</span><span id="line-69"></span><span>        </span><span class="annot"><span class="annottext">String -&gt; ReadP [(Char, String)]
</span><a href="#local-6989586621679072385"><span class="hs-identifier hs-var">parse</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072381"><span class="hs-identifier hs-var">cs</span></a></span><span>
</span><span id="line-70"></span><span>    </span><span class="annot"><a href="#local-6989586621679072385"><span class="hs-identifier hs-var">parse</span></a></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679072377"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072377"><span class="hs-identifier hs-var">c</span></a></span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679072376"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072376"><span class="hs-identifier hs-var">cs</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-71"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Char -&gt; ReadP Char
</span><a href="Data.Time.Format.Parse.Class.html#charCI"><span class="hs-identifier hs-var">charCI</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072377"><span class="hs-identifier hs-var">c</span></a></span><span>
</span><span id="line-72"></span><span>        </span><span class="annot"><span class="annottext">String -&gt; ReadP [(Char, String)]
</span><a href="#local-6989586621679072385"><span class="hs-identifier hs-var">parse</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072376"><span class="hs-identifier hs-var">cs</span></a></span><span>
</span><span id="line-73"></span><span>
</span><span id="line-74"></span><span>    </span><span class="annot"><a href="#local-6989586621679072383"><span class="hs-identifier hs-type">parse1</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/Text.ParserCombinators.ReadP.html#ReadP"><span class="hs-identifier hs-type">ReadP</span></a></span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Char</span></span><span class="hs-special">,</span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">)</span><span class="hs-special">]</span><span>
</span><span id="line-75"></span><span>    </span><span id="local-6989586621679072383"><span class="annot"><span class="annottext">parse1 :: String -&gt; ReadP [(Char, String)]
</span><a href="#local-6989586621679072383"><span class="hs-identifier hs-var hs-var">parse1</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'-'</span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679072375"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072375"><span class="hs-identifier hs-var">cs</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe ParseNumericPadding -&gt; String -&gt; ReadP [(Char, String)]
</span><a href="#local-6989586621679072374"><span class="hs-identifier hs-var">parse2</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ParseNumericPadding -&gt; Maybe ParseNumericPadding
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding
</span><a href="Data.Time.Format.Parse.Class.html#NoPadding"><span class="hs-identifier hs-var">NoPadding</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072375"><span class="hs-identifier hs-var">cs</span></a></span><span>
</span><span id="line-76"></span><span>    </span><span class="annot"><a href="#local-6989586621679072383"><span class="hs-identifier hs-var">parse1</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'_'</span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679072373"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072373"><span class="hs-identifier hs-var">cs</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe ParseNumericPadding -&gt; String -&gt; ReadP [(Char, String)]
</span><a href="#local-6989586621679072374"><span class="hs-identifier hs-var">parse2</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ParseNumericPadding -&gt; Maybe ParseNumericPadding
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding
</span><a href="Data.Time.Format.Parse.Class.html#SpacePadding"><span class="hs-identifier hs-var">SpacePadding</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072373"><span class="hs-identifier hs-var">cs</span></a></span><span>
</span><span id="line-77"></span><span>    </span><span class="annot"><a href="#local-6989586621679072383"><span class="hs-identifier hs-var">parse1</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679072372"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072372"><span class="hs-identifier hs-var">cs</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe ParseNumericPadding -&gt; String -&gt; ReadP [(Char, String)]
</span><a href="#local-6989586621679072374"><span class="hs-identifier hs-var">parse2</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ParseNumericPadding -&gt; Maybe ParseNumericPadding
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding
</span><a href="Data.Time.Format.Parse.Class.html#ZeroPadding"><span class="hs-identifier hs-var">ZeroPadding</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072372"><span class="hs-identifier hs-var">cs</span></a></span><span>
</span><span id="line-78"></span><span>    </span><span class="annot"><a href="#local-6989586621679072383"><span class="hs-identifier hs-var">parse1</span></a></span><span> </span><span id="local-6989586621679072371"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072371"><span class="hs-identifier hs-var">cs</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe ParseNumericPadding -&gt; String -&gt; ReadP [(Char, String)]
</span><a href="#local-6989586621679072374"><span class="hs-identifier hs-var">parse2</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe ParseNumericPadding
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072371"><span class="hs-identifier hs-var">cs</span></a></span><span>
</span><span id="line-79"></span><span>
</span><span id="line-80"></span><span>    </span><span class="annot"><a href="#local-6989586621679072374"><span class="hs-identifier hs-type">parse2</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#ParseNumericPadding"><span class="hs-identifier hs-type">ParseNumericPadding</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/Text.ParserCombinators.ReadP.html#ReadP"><span class="hs-identifier hs-type">ReadP</span></a></span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Char</span></span><span class="hs-special">,</span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">)</span><span class="hs-special">]</span><span>
</span><span id="line-81"></span><span>    </span><span id="local-6989586621679072374"><span class="annot"><span class="annottext">parse2 :: Maybe ParseNumericPadding -&gt; String -&gt; ReadP [(Char, String)]
</span><a href="#local-6989586621679072374"><span class="hs-identifier hs-var hs-var">parse2</span></a></span></span><span> </span><span id="local-6989586621679072370"><span class="annot"><span class="annottext">Maybe ParseNumericPadding
</span><a href="#local-6989586621679072370"><span class="hs-identifier hs-var">mpad</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'E'</span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679072369"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072369"><span class="hs-identifier hs-var">cs</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe ParseNumericPadding
-&gt; Bool -&gt; String -&gt; ReadP [(Char, String)]
</span><a href="#local-6989586621679072368"><span class="hs-identifier hs-var">parse3</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe ParseNumericPadding
</span><a href="#local-6989586621679072370"><span class="hs-identifier hs-var">mpad</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072369"><span class="hs-identifier hs-var">cs</span></a></span><span>
</span><span id="line-82"></span><span>    </span><span class="annot"><a href="#local-6989586621679072374"><span class="hs-identifier hs-var">parse2</span></a></span><span> </span><span id="local-6989586621679072367"><span class="annot"><span class="annottext">Maybe ParseNumericPadding
</span><a href="#local-6989586621679072367"><span class="hs-identifier hs-var">mpad</span></a></span></span><span> </span><span id="local-6989586621679072366"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072366"><span class="hs-identifier hs-var">cs</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe ParseNumericPadding
-&gt; Bool -&gt; String -&gt; ReadP [(Char, String)]
</span><a href="#local-6989586621679072368"><span class="hs-identifier hs-var">parse3</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe ParseNumericPadding
</span><a href="#local-6989586621679072367"><span class="hs-identifier hs-var">mpad</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072366"><span class="hs-identifier hs-var">cs</span></a></span><span>
</span><span id="line-83"></span><span>
</span><span id="line-84"></span><span>    </span><span class="annot"><a href="#local-6989586621679072368"><span class="hs-identifier hs-type">parse3</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#ParseNumericPadding"><span class="hs-identifier hs-type">ParseNumericPadding</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/Text.ParserCombinators.ReadP.html#ReadP"><span class="hs-identifier hs-type">ReadP</span></a></span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Char</span></span><span class="hs-special">,</span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">)</span><span class="hs-special">]</span><span>
</span><span id="line-85"></span><span>    </span><span id="local-6989586621679072368"><span class="annot"><span class="annottext">parse3 :: Maybe ParseNumericPadding
-&gt; Bool -&gt; String -&gt; ReadP [(Char, String)]
</span><a href="#local-6989586621679072368"><span class="hs-identifier hs-var hs-var">parse3</span></a></span></span><span> </span><span class="annot"><span class="annottext">Maybe ParseNumericPadding
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'%'</span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679072365"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072365"><span class="hs-identifier hs-var">cs</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-86"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Char -&gt; ReadP Char
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#char"><span class="hs-identifier hs-var">char</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'%'</span></span><span>
</span><span id="line-87"></span><span>        </span><span class="annot"><span class="annottext">String -&gt; ReadP [(Char, String)]
</span><a href="#local-6989586621679072385"><span class="hs-identifier hs-var">parse</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072365"><span class="hs-identifier hs-var">cs</span></a></span><span>
</span><span id="line-88"></span><span>    </span><span class="annot"><a href="#local-6989586621679072368"><span class="hs-identifier hs-var">parse3</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe ParseNumericPadding
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679072363"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072363"><span class="hs-identifier hs-var">c</span></a></span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679072362"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072362"><span class="hs-identifier hs-var">cs</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span id="local-6989586621679072361"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072361"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">proxy t -&gt; TimeLocale -&gt; Char -&gt; Maybe String
forall t (proxy :: * -&gt; *).
ParseTime t =&gt;
proxy t -&gt; TimeLocale -&gt; Char -&gt; Maybe String
</span><a href="Data.Time.Format.Parse.Class.html#substituteTimeSpecifier"><span class="hs-identifier hs-var">substituteTimeSpecifier</span></a></span><span> </span><span class="annot"><span class="annottext">proxy t
</span><a href="#local-6989586621679072387"><span class="hs-identifier hs-var">pt</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072386"><span class="hs-identifier hs-var">locale</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072363"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -&gt; ReadP [(Char, String)]
</span><a href="#local-6989586621679072385"><span class="hs-identifier hs-var">parse</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; ReadP [(Char, String)])
-&gt; String -&gt; ReadP [(Char, String)]
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072361"><span class="hs-identifier hs-var">s</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; String -&gt; String
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072362"><span class="hs-identifier hs-var">cs</span></a></span><span>
</span><span id="line-89"></span><span>    </span><span class="annot"><a href="#local-6989586621679072368"><span class="hs-identifier hs-var">parse3</span></a></span><span> </span><span id="local-6989586621679072360"><span class="annot"><span class="annottext">Maybe ParseNumericPadding
</span><a href="#local-6989586621679072360"><span class="hs-identifier hs-var">mpad</span></a></span></span><span> </span><span id="local-6989586621679072359"><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679072359"><span class="hs-identifier hs-var">_alt</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679072358"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072358"><span class="hs-identifier hs-var">c</span></a></span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679072357"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072357"><span class="hs-identifier hs-var">cs</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-90"></span><span>        </span><span id="local-6989586621679072356"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072356"><span class="hs-identifier hs-var">str</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">proxy t
-&gt; TimeLocale -&gt; Maybe ParseNumericPadding -&gt; Char -&gt; ReadP String
forall t (proxy :: * -&gt; *).
ParseTime t =&gt;
proxy t
-&gt; TimeLocale -&gt; Maybe ParseNumericPadding -&gt; Char -&gt; ReadP String
</span><a href="Data.Time.Format.Parse.Class.html#parseTimeSpecifier"><span class="hs-identifier hs-var">parseTimeSpecifier</span></a></span><span> </span><span class="annot"><span class="annottext">proxy t
</span><a href="#local-6989586621679072387"><span class="hs-identifier hs-var">pt</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072386"><span class="hs-identifier hs-var">locale</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe ParseNumericPadding
</span><a href="#local-6989586621679072360"><span class="hs-identifier hs-var">mpad</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072358"><span class="hs-identifier hs-var">c</span></a></span><span>
</span><span id="line-91"></span><span>        </span><span id="local-6989586621679072355"><span class="annot"><span class="annottext">[(Char, String)]
</span><a href="#local-6989586621679072355"><span class="hs-identifier hs-var">specs</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">String -&gt; ReadP [(Char, String)]
</span><a href="#local-6989586621679072385"><span class="hs-identifier hs-var">parse</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072357"><span class="hs-identifier hs-var">cs</span></a></span><span>
</span><span id="line-92"></span><span>        </span><span class="annot"><span class="annottext">[(Char, String)] -&gt; ReadP [(Char, String)]
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">([(Char, String)] -&gt; ReadP [(Char, String)])
-&gt; [(Char, String)] -&gt; ReadP [(Char, String)]
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072358"><span class="hs-identifier hs-var">c</span></a></span><span class="hs-special">,</span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072356"><span class="hs-identifier hs-var">str</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Char, String) -&gt; [(Char, String)] -&gt; [(Char, String)]
forall a. a -&gt; [a] -&gt; [a]
</span><span class="hs-glyph hs-var">:</span></span><span> </span><span class="annot"><span class="annottext">[(Char, String)]
</span><a href="#local-6989586621679072355"><span class="hs-identifier hs-var">specs</span></a></span><span>
</span><span id="line-93"></span><span>    </span><span class="annot"><a href="#local-6989586621679072368"><span class="hs-identifier hs-var">parse3</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe ParseNumericPadding
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[(Char, String)] -&gt; ReadP [(Char, String)]
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span>
</span><span id="line-94"></span><span>    </span><span class="hs-keyword">in</span><span> </span><span class="annot"><span class="annottext">String -&gt; ReadP [(Char, String)]
</span><a href="#local-6989586621679072385"><span class="hs-identifier hs-var">parse</span></a></span><span>
</span><span id="line-95"></span><span>
</span><span id="line-96"></span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#parsePaddedDigits"><span class="hs-identifier hs-type">parsePaddedDigits</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#ParseNumericPadding"><span class="hs-identifier hs-type">ParseNumericPadding</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/Text.ParserCombinators.ReadP.html#ReadP"><span class="hs-identifier hs-type">ReadP</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-97"></span><span id="parsePaddedDigits"><span class="annot"><span class="annottext">parsePaddedDigits :: ParseNumericPadding -&gt; Int -&gt; ReadP String
</span><a href="Data.Time.Format.Parse.Class.html#parsePaddedDigits"><span class="hs-identifier hs-var hs-var">parsePaddedDigits</span></a></span></span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding
</span><a href="Data.Time.Format.Parse.Class.html#ZeroPadding"><span class="hs-identifier hs-var">ZeroPadding</span></a></span><span> </span><span id="local-6989586621679072353"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679072353"><span class="hs-identifier hs-var">n</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int -&gt; ReadP Char -&gt; ReadP String
forall a. Int -&gt; ReadP a -&gt; ReadP [a]
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#count"><span class="hs-identifier hs-var">count</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679072353"><span class="hs-identifier hs-var">n</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(Char -&gt; Bool) -&gt; ReadP Char
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#satisfy"><span class="hs-identifier hs-var">satisfy</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Bool
</span><a href="../../base/src/GHC.Unicode.html#isDigit"><span class="hs-identifier hs-var">isDigit</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-98"></span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#parsePaddedDigits"><span class="hs-identifier hs-var">parsePaddedDigits</span></a></span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding
</span><a href="Data.Time.Format.Parse.Class.html#SpacePadding"><span class="hs-identifier hs-var">SpacePadding</span></a></span><span> </span><span id="local-6989586621679072350"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679072350"><span class="hs-identifier hs-var">_n</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ReadP ()
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#skipSpaces"><span class="hs-identifier hs-var">skipSpaces</span></a></span><span> </span><span class="annot"><span class="annottext">ReadP () -&gt; ReadP String -&gt; ReadP String
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">ReadP Char -&gt; ReadP String
forall a. ReadP a -&gt; ReadP [a]
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#many1"><span class="hs-identifier hs-var">many1</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(Char -&gt; Bool) -&gt; ReadP Char
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#satisfy"><span class="hs-identifier hs-var">satisfy</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Bool
</span><a href="../../base/src/GHC.Unicode.html#isDigit"><span class="hs-identifier hs-var">isDigit</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-99"></span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#parsePaddedDigits"><span class="hs-identifier hs-var">parsePaddedDigits</span></a></span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding
</span><a href="Data.Time.Format.Parse.Class.html#NoPadding"><span class="hs-identifier hs-var">NoPadding</span></a></span><span> </span><span id="local-6989586621679072348"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679072348"><span class="hs-identifier hs-var">_n</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ReadP Char -&gt; ReadP String
forall a. ReadP a -&gt; ReadP [a]
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#many1"><span class="hs-identifier hs-var">many1</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(Char -&gt; Bool) -&gt; ReadP Char
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#satisfy"><span class="hs-identifier hs-var">satisfy</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Bool
</span><a href="../../base/src/GHC.Unicode.html#isDigit"><span class="hs-identifier hs-var">isDigit</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-100"></span><span>
</span><span id="line-101"></span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#parsePaddedSignedDigits"><span class="hs-identifier hs-type">parsePaddedSignedDigits</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#ParseNumericPadding"><span class="hs-identifier hs-type">ParseNumericPadding</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/Text.ParserCombinators.ReadP.html#ReadP"><span class="hs-identifier hs-type">ReadP</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-102"></span><span id="parsePaddedSignedDigits"><span class="annot"><span class="annottext">parsePaddedSignedDigits :: ParseNumericPadding -&gt; Int -&gt; ReadP String
</span><a href="Data.Time.Format.Parse.Class.html#parsePaddedSignedDigits"><span class="hs-identifier hs-var hs-var">parsePaddedSignedDigits</span></a></span></span><span> </span><span id="local-6989586621679072346"><span class="annot"><span class="annottext">ParseNumericPadding
</span><a href="#local-6989586621679072346"><span class="hs-identifier hs-var">pad</span></a></span></span><span> </span><span id="local-6989586621679072345"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679072345"><span class="hs-identifier hs-var">n</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-103"></span><span>    </span><span id="local-6989586621679072344"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072344"><span class="hs-identifier hs-var">sign</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">String -&gt; ReadP String -&gt; ReadP String
forall a. a -&gt; ReadP a -&gt; ReadP a
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#option"><span class="hs-identifier hs-var">option</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;&quot;</span></span><span> </span><span class="annot"><span class="annottext">(ReadP String -&gt; ReadP String) -&gt; ReadP String -&gt; ReadP String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; ReadP Char
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#char"><span class="hs-identifier hs-var">char</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'-'</span></span><span> </span><span class="annot"><span class="annottext">ReadP Char -&gt; ReadP String -&gt; ReadP String
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; ReadP String
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;-&quot;</span></span><span>
</span><span id="line-104"></span><span>    </span><span id="local-6989586621679072342"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072342"><span class="hs-identifier hs-var">digits</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding -&gt; Int -&gt; ReadP String
</span><a href="Data.Time.Format.Parse.Class.html#parsePaddedDigits"><span class="hs-identifier hs-var">parsePaddedDigits</span></a></span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding
</span><a href="#local-6989586621679072346"><span class="hs-identifier hs-var">pad</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679072345"><span class="hs-identifier hs-var">n</span></a></span><span>
</span><span id="line-105"></span><span>    </span><span class="annot"><span class="annottext">String -&gt; ReadP String
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; ReadP String) -&gt; String -&gt; ReadP String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072344"><span class="hs-identifier hs-var">sign</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; String -&gt; String
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072342"><span class="hs-identifier hs-var">digits</span></a></span><span>
</span><span id="line-106"></span><span>
</span><span id="line-107"></span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#parseSignedDecimal"><span class="hs-identifier hs-type">parseSignedDecimal</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/Text.ParserCombinators.ReadP.html#ReadP"><span class="hs-identifier hs-type">ReadP</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-108"></span><span id="parseSignedDecimal"><span class="annot"><span class="annottext">parseSignedDecimal :: ReadP String
</span><a href="Data.Time.Format.Parse.Class.html#parseSignedDecimal"><span class="hs-identifier hs-var hs-var">parseSignedDecimal</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-109"></span><span>    </span><span id="local-6989586621679072340"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072340"><span class="hs-identifier hs-var">sign</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">String -&gt; ReadP String -&gt; ReadP String
forall a. a -&gt; ReadP a -&gt; ReadP a
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#option"><span class="hs-identifier hs-var">option</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;&quot;</span></span><span> </span><span class="annot"><span class="annottext">(ReadP String -&gt; ReadP String) -&gt; ReadP String -&gt; ReadP String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; ReadP Char
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#char"><span class="hs-identifier hs-var">char</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'-'</span></span><span> </span><span class="annot"><span class="annottext">ReadP Char -&gt; ReadP String -&gt; ReadP String
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; ReadP String
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;-&quot;</span></span><span>
</span><span id="line-110"></span><span>    </span><span class="annot"><span class="annottext">ReadP ()
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#skipSpaces"><span class="hs-identifier hs-var">skipSpaces</span></a></span><span>
</span><span id="line-111"></span><span>    </span><span id="local-6989586621679072339"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072339"><span class="hs-identifier hs-var">digits</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">ReadP Char -&gt; ReadP String
forall a. ReadP a -&gt; ReadP [a]
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#many1"><span class="hs-identifier hs-var">many1</span></a></span><span> </span><span class="annot"><span class="annottext">(ReadP Char -&gt; ReadP String) -&gt; ReadP Char -&gt; ReadP String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">(Char -&gt; Bool) -&gt; ReadP Char
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#satisfy"><span class="hs-identifier hs-var">satisfy</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Bool
</span><a href="../../base/src/GHC.Unicode.html#isDigit"><span class="hs-identifier hs-var">isDigit</span></a></span><span>
</span><span id="line-112"></span><span>    </span><span id="local-6989586621679072338"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072338"><span class="hs-identifier hs-var">decimaldigits</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">String -&gt; ReadP String -&gt; ReadP String
forall a. a -&gt; ReadP a -&gt; ReadP a
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#option"><span class="hs-identifier hs-var">option</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;&quot;</span></span><span> </span><span class="annot"><span class="annottext">(ReadP String -&gt; ReadP String) -&gt; ReadP String -&gt; ReadP String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-113"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Char -&gt; ReadP Char
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#char"><span class="hs-identifier hs-var">char</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'.'</span></span><span>
</span><span id="line-114"></span><span>        </span><span id="local-6989586621679072337"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072337"><span class="hs-identifier hs-var">dd</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">ReadP Char -&gt; ReadP String
forall a. ReadP a -&gt; ReadP [a]
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#many"><span class="hs-identifier hs-var">many</span></a></span><span> </span><span class="annot"><span class="annottext">(ReadP Char -&gt; ReadP String) -&gt; ReadP Char -&gt; ReadP String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">(Char -&gt; Bool) -&gt; ReadP Char
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#satisfy"><span class="hs-identifier hs-var">satisfy</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Bool
</span><a href="../../base/src/GHC.Unicode.html#isDigit"><span class="hs-identifier hs-var">isDigit</span></a></span><span>
</span><span id="line-115"></span><span>        </span><span class="annot"><span class="annottext">String -&gt; ReadP String
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; ReadP String) -&gt; String -&gt; ReadP String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'.'</span></span><span class="annot"><span class="annottext">Char -&gt; String -&gt; String
forall a. a -&gt; [a] -&gt; [a]
</span><span class="hs-glyph hs-var">:</span></span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072337"><span class="hs-identifier hs-var">dd</span></a></span><span>
</span><span id="line-116"></span><span>    </span><span class="annot"><span class="annottext">String -&gt; ReadP String
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; ReadP String) -&gt; String -&gt; ReadP String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072340"><span class="hs-identifier hs-var">sign</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; String -&gt; String
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072339"><span class="hs-identifier hs-var">digits</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; String -&gt; String
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072338"><span class="hs-identifier hs-var">decimaldigits</span></a></span><span>
</span><span id="line-117"></span><span>
</span><span id="line-118"></span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#timeParseTimeSpecifier"><span class="hs-identifier hs-type">timeParseTimeSpecifier</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Time.Format.Locale.html#TimeLocale"><span class="hs-identifier hs-type">TimeLocale</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#ParseNumericPadding"><span class="hs-identifier hs-type">ParseNumericPadding</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Char</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/Text.ParserCombinators.ReadP.html#ReadP"><span class="hs-identifier hs-type">ReadP</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-119"></span><span id="timeParseTimeSpecifier"><span class="annot"><span class="annottext">timeParseTimeSpecifier :: TimeLocale -&gt; Maybe ParseNumericPadding -&gt; Char -&gt; ReadP String
</span><a href="Data.Time.Format.Parse.Class.html#timeParseTimeSpecifier"><span class="hs-identifier hs-var hs-var">timeParseTimeSpecifier</span></a></span></span><span> </span><span id="local-6989586621679072335"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072335"><span class="hs-identifier hs-var">l</span></a></span></span><span> </span><span id="local-6989586621679072334"><span class="annot"><span class="annottext">Maybe ParseNumericPadding
</span><a href="#local-6989586621679072334"><span class="hs-identifier hs-var">mpad</span></a></span></span><span> </span><span id="local-6989586621679072333"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072333"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-120"></span><span>    </span><span id="local-6989586621679072332"><span class="annot"><span class="annottext">digits :: ParseNumericPadding -&gt; Int -&gt; ReadP String
</span><a href="#local-6989586621679072332"><span class="hs-identifier hs-var hs-var">digits</span></a></span></span><span> </span><span id="local-6989586621679072331"><span class="annot"><span class="annottext">ParseNumericPadding
</span><a href="#local-6989586621679072331"><span class="hs-identifier hs-var">pad</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding -&gt; Int -&gt; ReadP String
</span><a href="Data.Time.Format.Parse.Class.html#parsePaddedDigits"><span class="hs-identifier hs-var">parsePaddedDigits</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ParseNumericPadding
-&gt; Maybe ParseNumericPadding -&gt; ParseNumericPadding
forall a. a -&gt; Maybe a -&gt; a
</span><a href="../../base/src/Data.Maybe.html#fromMaybe"><span class="hs-identifier hs-var">fromMaybe</span></a></span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding
</span><a href="#local-6989586621679072331"><span class="hs-identifier hs-var">pad</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe ParseNumericPadding
</span><a href="#local-6989586621679072334"><span class="hs-identifier hs-var">mpad</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-121"></span><span>    </span><span id="local-6989586621679072329"><span class="annot"><span class="annottext">oneOf :: [String] -&gt; ReadP String
</span><a href="#local-6989586621679072329"><span class="hs-identifier hs-var hs-var">oneOf</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[ReadP String] -&gt; ReadP String
forall a. [ReadP a] -&gt; ReadP a
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#choice"><span class="hs-identifier hs-var">choice</span></a></span><span> </span><span class="annot"><span class="annottext">([ReadP String] -&gt; ReadP String)
-&gt; ([String] -&gt; [ReadP String]) -&gt; [String] -&gt; ReadP String
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; ReadP String) -&gt; [String] -&gt; [ReadP String]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; ReadP String
</span><a href="Data.Time.Format.Parse.Class.html#stringCI"><span class="hs-identifier hs-var">stringCI</span></a></span><span>
</span><span id="line-122"></span><span>    </span><span id="local-6989586621679072321"><span class="annot"><span class="annottext">numericTZ :: ReadP String
</span><a href="#local-6989586621679072321"><span class="hs-identifier hs-var hs-var">numericTZ</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-123"></span><span>        </span><span id="local-6989586621679072320"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072320"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[ReadP Char] -&gt; ReadP Char
forall a. [ReadP a] -&gt; ReadP a
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#choice"><span class="hs-identifier hs-var">choice</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Char -&gt; ReadP Char
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#char"><span class="hs-identifier hs-var">char</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'+'</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Char -&gt; ReadP Char
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#char"><span class="hs-identifier hs-var">char</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'-'</span></span><span class="hs-special">]</span><span>
</span><span id="line-124"></span><span>        </span><span id="local-6989586621679072319"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072319"><span class="hs-identifier hs-var">h</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding -&gt; Int -&gt; ReadP String
</span><a href="Data.Time.Format.Parse.Class.html#parsePaddedDigits"><span class="hs-identifier hs-var">parsePaddedDigits</span></a></span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding
</span><a href="Data.Time.Format.Parse.Class.html#ZeroPadding"><span class="hs-identifier hs-var">ZeroPadding</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span>
</span><span id="line-125"></span><span>        </span><span class="annot"><span class="annottext">ReadP Char -&gt; ReadP ()
forall a. ReadP a -&gt; ReadP ()
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#optional"><span class="hs-identifier hs-var">optional</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char -&gt; ReadP Char
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#char"><span class="hs-identifier hs-var">char</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">':'</span></span><span class="hs-special">)</span><span>
</span><span id="line-126"></span><span>        </span><span id="local-6989586621679072317"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072317"><span class="hs-identifier hs-var">m</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding -&gt; Int -&gt; ReadP String
</span><a href="Data.Time.Format.Parse.Class.html#parsePaddedDigits"><span class="hs-identifier hs-var">parsePaddedDigits</span></a></span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding
</span><a href="Data.Time.Format.Parse.Class.html#ZeroPadding"><span class="hs-identifier hs-var">ZeroPadding</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span>
</span><span id="line-127"></span><span>        </span><span class="annot"><span class="annottext">String -&gt; ReadP String
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072320"><span class="hs-identifier hs-var">s</span></a></span><span class="annot"><span class="annottext">Char -&gt; String -&gt; String
forall a. a -&gt; [a] -&gt; [a]
</span><span class="hs-glyph hs-var">:</span></span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072319"><span class="hs-identifier hs-var">h</span></a></span><span class="annot"><span class="annottext">String -&gt; String -&gt; String
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072317"><span class="hs-identifier hs-var">m</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-128"></span><span>    </span><span class="hs-keyword">in</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072333"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-129"></span><span>        </span><span class="hs-comment">-- century</span><span>
</span><span id="line-130"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'C'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding -&gt; Int -&gt; ReadP String
</span><a href="#local-6989586621679072332"><span class="hs-identifier hs-var">digits</span></a></span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding
</span><a href="Data.Time.Format.Parse.Class.html#SpacePadding"><span class="hs-identifier hs-var">SpacePadding</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span>
</span><span id="line-131"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'f'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding -&gt; Int -&gt; ReadP String
</span><a href="#local-6989586621679072332"><span class="hs-identifier hs-var">digits</span></a></span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding
</span><a href="Data.Time.Format.Parse.Class.html#SpacePadding"><span class="hs-identifier hs-var">SpacePadding</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span>
</span><span id="line-132"></span><span>
</span><span id="line-133"></span><span>        </span><span class="hs-comment">-- year</span><span>
</span><span id="line-134"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'Y'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding -&gt; Int -&gt; ReadP String
</span><a href="#local-6989586621679072332"><span class="hs-identifier hs-var">digits</span></a></span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding
</span><a href="Data.Time.Format.Parse.Class.html#SpacePadding"><span class="hs-identifier hs-var">SpacePadding</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">4</span></span><span>
</span><span id="line-135"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'G'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding -&gt; Int -&gt; ReadP String
</span><a href="#local-6989586621679072332"><span class="hs-identifier hs-var">digits</span></a></span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding
</span><a href="Data.Time.Format.Parse.Class.html#SpacePadding"><span class="hs-identifier hs-var">SpacePadding</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">4</span></span><span>
</span><span id="line-136"></span><span>
</span><span id="line-137"></span><span>        </span><span class="hs-comment">-- year of century</span><span>
</span><span id="line-138"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'y'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding -&gt; Int -&gt; ReadP String
</span><a href="#local-6989586621679072332"><span class="hs-identifier hs-var">digits</span></a></span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding
</span><a href="Data.Time.Format.Parse.Class.html#ZeroPadding"><span class="hs-identifier hs-var">ZeroPadding</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span>
</span><span id="line-139"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'g'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding -&gt; Int -&gt; ReadP String
</span><a href="#local-6989586621679072332"><span class="hs-identifier hs-var">digits</span></a></span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding
</span><a href="Data.Time.Format.Parse.Class.html#ZeroPadding"><span class="hs-identifier hs-var">ZeroPadding</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span>
</span><span id="line-140"></span><span>
</span><span id="line-141"></span><span>        </span><span class="hs-comment">-- month of year</span><span>
</span><span id="line-142"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'B'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">[String] -&gt; ReadP String
</span><a href="#local-6989586621679072329"><span class="hs-identifier hs-var">oneOf</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">((String, String) -&gt; String) -&gt; [(String, String)] -&gt; [String]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="annot"><span class="annottext">(String, String) -&gt; String
forall a b. (a, b) -&gt; a
</span><a href="../../base/src/Data.Tuple.html#fst"><span class="hs-identifier hs-var">fst</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">TimeLocale -&gt; [(String, String)]
</span><a href="Data.Time.Format.Locale.html#months"><span class="hs-identifier hs-var hs-var">months</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072335"><span class="hs-identifier hs-var">l</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-143"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'b'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">[String] -&gt; ReadP String
</span><a href="#local-6989586621679072329"><span class="hs-identifier hs-var">oneOf</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">((String, String) -&gt; String) -&gt; [(String, String)] -&gt; [String]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="annot"><span class="annottext">(String, String) -&gt; String
forall a b. (a, b) -&gt; b
</span><a href="../../base/src/Data.Tuple.html#snd"><span class="hs-identifier hs-var">snd</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">TimeLocale -&gt; [(String, String)]
</span><a href="Data.Time.Format.Locale.html#months"><span class="hs-identifier hs-var hs-var">months</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072335"><span class="hs-identifier hs-var">l</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-144"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'m'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding -&gt; Int -&gt; ReadP String
</span><a href="#local-6989586621679072332"><span class="hs-identifier hs-var">digits</span></a></span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding
</span><a href="Data.Time.Format.Parse.Class.html#ZeroPadding"><span class="hs-identifier hs-var">ZeroPadding</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span>
</span><span id="line-145"></span><span>
</span><span id="line-146"></span><span>        </span><span class="hs-comment">-- day of month</span><span>
</span><span id="line-147"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'d'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding -&gt; Int -&gt; ReadP String
</span><a href="#local-6989586621679072332"><span class="hs-identifier hs-var">digits</span></a></span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding
</span><a href="Data.Time.Format.Parse.Class.html#ZeroPadding"><span class="hs-identifier hs-var">ZeroPadding</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span>
</span><span id="line-148"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'e'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding -&gt; Int -&gt; ReadP String
</span><a href="#local-6989586621679072332"><span class="hs-identifier hs-var">digits</span></a></span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding
</span><a href="Data.Time.Format.Parse.Class.html#SpacePadding"><span class="hs-identifier hs-var">SpacePadding</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span>
</span><span id="line-149"></span><span>
</span><span id="line-150"></span><span>        </span><span class="hs-comment">-- week of year</span><span>
</span><span id="line-151"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'V'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding -&gt; Int -&gt; ReadP String
</span><a href="#local-6989586621679072332"><span class="hs-identifier hs-var">digits</span></a></span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding
</span><a href="Data.Time.Format.Parse.Class.html#ZeroPadding"><span class="hs-identifier hs-var">ZeroPadding</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span>
</span><span id="line-152"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'U'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding -&gt; Int -&gt; ReadP String
</span><a href="#local-6989586621679072332"><span class="hs-identifier hs-var">digits</span></a></span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding
</span><a href="Data.Time.Format.Parse.Class.html#ZeroPadding"><span class="hs-identifier hs-var">ZeroPadding</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span>
</span><span id="line-153"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'W'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding -&gt; Int -&gt; ReadP String
</span><a href="#local-6989586621679072332"><span class="hs-identifier hs-var">digits</span></a></span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding
</span><a href="Data.Time.Format.Parse.Class.html#ZeroPadding"><span class="hs-identifier hs-var">ZeroPadding</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span>
</span><span id="line-154"></span><span>
</span><span id="line-155"></span><span>        </span><span class="hs-comment">-- day of week</span><span>
</span><span id="line-156"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'u'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">[String] -&gt; ReadP String
</span><a href="#local-6989586621679072329"><span class="hs-identifier hs-var">oneOf</span></a></span><span> </span><span class="annot"><span class="annottext">([String] -&gt; ReadP String) -&gt; [String] -&gt; ReadP String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">(Char -&gt; String) -&gt; String -&gt; [String]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char -&gt; String -&gt; String
forall a. a -&gt; [a] -&gt; [a]
</span><span class="hs-glyph hs-var">:</span></span><span class="hs-special">[</span><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'1'</span></span><span class="hs-glyph">..</span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'7'</span></span><span class="hs-special">]</span><span>
</span><span id="line-157"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'a'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">[String] -&gt; ReadP String
</span><a href="#local-6989586621679072329"><span class="hs-identifier hs-var">oneOf</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">((String, String) -&gt; String) -&gt; [(String, String)] -&gt; [String]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="annot"><span class="annottext">(String, String) -&gt; String
forall a b. (a, b) -&gt; b
</span><a href="../../base/src/Data.Tuple.html#snd"><span class="hs-identifier hs-var">snd</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">TimeLocale -&gt; [(String, String)]
</span><a href="Data.Time.Format.Locale.html#wDays"><span class="hs-identifier hs-var hs-var">wDays</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072335"><span class="hs-identifier hs-var">l</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-158"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'A'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">[String] -&gt; ReadP String
</span><a href="#local-6989586621679072329"><span class="hs-identifier hs-var">oneOf</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">((String, String) -&gt; String) -&gt; [(String, String)] -&gt; [String]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="annot"><span class="annottext">(String, String) -&gt; String
forall a b. (a, b) -&gt; a
</span><a href="../../base/src/Data.Tuple.html#fst"><span class="hs-identifier hs-var">fst</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">TimeLocale -&gt; [(String, String)]
</span><a href="Data.Time.Format.Locale.html#wDays"><span class="hs-identifier hs-var hs-var">wDays</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072335"><span class="hs-identifier hs-var">l</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-159"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'w'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">[String] -&gt; ReadP String
</span><a href="#local-6989586621679072329"><span class="hs-identifier hs-var">oneOf</span></a></span><span> </span><span class="annot"><span class="annottext">([String] -&gt; ReadP String) -&gt; [String] -&gt; ReadP String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">(Char -&gt; String) -&gt; String -&gt; [String]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char -&gt; String -&gt; String
forall a. a -&gt; [a] -&gt; [a]
</span><span class="hs-glyph hs-var">:</span></span><span class="hs-special">[</span><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span class="hs-glyph">..</span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'6'</span></span><span class="hs-special">]</span><span>
</span><span id="line-160"></span><span>
</span><span id="line-161"></span><span>        </span><span class="hs-comment">-- day of year</span><span>
</span><span id="line-162"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'j'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding -&gt; Int -&gt; ReadP String
</span><a href="#local-6989586621679072332"><span class="hs-identifier hs-var">digits</span></a></span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding
</span><a href="Data.Time.Format.Parse.Class.html#ZeroPadding"><span class="hs-identifier hs-var">ZeroPadding</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">3</span></span><span>
</span><span id="line-163"></span><span>
</span><span id="line-164"></span><span>        </span><span class="hs-comment">-- dayhalf of day (i.e. AM or PM)</span><span>
</span><span id="line-165"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'P'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">[String] -&gt; ReadP String
</span><a href="#local-6989586621679072329"><span class="hs-identifier hs-var">oneOf</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-keyword">let</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679072314"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072314"><span class="hs-identifier hs-var">am</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679072313"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072313"><span class="hs-identifier hs-var">pm</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; (String, String)
</span><a href="Data.Time.Format.Locale.html#amPm"><span class="hs-identifier hs-var hs-var">amPm</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072335"><span class="hs-identifier hs-var">l</span></a></span><span> </span><span class="hs-keyword">in</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072314"><span class="hs-identifier hs-var">am</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072313"><span class="hs-identifier hs-var">pm</span></a></span><span class="hs-special">]</span><span class="hs-special">)</span><span>
</span><span id="line-166"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'p'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">[String] -&gt; ReadP String
</span><a href="#local-6989586621679072329"><span class="hs-identifier hs-var">oneOf</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-keyword">let</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679072311"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072311"><span class="hs-identifier hs-var">am</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679072310"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072310"><span class="hs-identifier hs-var">pm</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; (String, String)
</span><a href="Data.Time.Format.Locale.html#amPm"><span class="hs-identifier hs-var hs-var">amPm</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072335"><span class="hs-identifier hs-var">l</span></a></span><span> </span><span class="hs-keyword">in</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072311"><span class="hs-identifier hs-var">am</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072310"><span class="hs-identifier hs-var">pm</span></a></span><span class="hs-special">]</span><span class="hs-special">)</span><span>
</span><span id="line-167"></span><span>
</span><span id="line-168"></span><span>        </span><span class="hs-comment">-- hour of day (i.e. 24h)</span><span>
</span><span id="line-169"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'H'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding -&gt; Int -&gt; ReadP String
</span><a href="#local-6989586621679072332"><span class="hs-identifier hs-var">digits</span></a></span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding
</span><a href="Data.Time.Format.Parse.Class.html#ZeroPadding"><span class="hs-identifier hs-var">ZeroPadding</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span>
</span><span id="line-170"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'k'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding -&gt; Int -&gt; ReadP String
</span><a href="#local-6989586621679072332"><span class="hs-identifier hs-var">digits</span></a></span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding
</span><a href="Data.Time.Format.Parse.Class.html#SpacePadding"><span class="hs-identifier hs-var">SpacePadding</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span>
</span><span id="line-171"></span><span>
</span><span id="line-172"></span><span>        </span><span class="hs-comment">-- hour of dayhalf (i.e. 12h)</span><span>
</span><span id="line-173"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'I'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding -&gt; Int -&gt; ReadP String
</span><a href="#local-6989586621679072332"><span class="hs-identifier hs-var">digits</span></a></span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding
</span><a href="Data.Time.Format.Parse.Class.html#ZeroPadding"><span class="hs-identifier hs-var">ZeroPadding</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span>
</span><span id="line-174"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'l'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding -&gt; Int -&gt; ReadP String
</span><a href="#local-6989586621679072332"><span class="hs-identifier hs-var">digits</span></a></span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding
</span><a href="Data.Time.Format.Parse.Class.html#SpacePadding"><span class="hs-identifier hs-var">SpacePadding</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span>
</span><span id="line-175"></span><span>
</span><span id="line-176"></span><span>        </span><span class="hs-comment">-- minute of hour</span><span>
</span><span id="line-177"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'M'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding -&gt; Int -&gt; ReadP String
</span><a href="#local-6989586621679072332"><span class="hs-identifier hs-var">digits</span></a></span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding
</span><a href="Data.Time.Format.Parse.Class.html#ZeroPadding"><span class="hs-identifier hs-var">ZeroPadding</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span>
</span><span id="line-178"></span><span>
</span><span id="line-179"></span><span>        </span><span class="hs-comment">-- second of minute</span><span>
</span><span id="line-180"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'S'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding -&gt; Int -&gt; ReadP String
</span><a href="#local-6989586621679072332"><span class="hs-identifier hs-var">digits</span></a></span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding
</span><a href="Data.Time.Format.Parse.Class.html#ZeroPadding"><span class="hs-identifier hs-var">ZeroPadding</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span>
</span><span id="line-181"></span><span>
</span><span id="line-182"></span><span>        </span><span class="hs-comment">-- picosecond of second</span><span>
</span><span id="line-183"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'q'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding -&gt; Int -&gt; ReadP String
</span><a href="#local-6989586621679072332"><span class="hs-identifier hs-var">digits</span></a></span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding
</span><a href="Data.Time.Format.Parse.Class.html#ZeroPadding"><span class="hs-identifier hs-var">ZeroPadding</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">12</span></span><span>
</span><span id="line-184"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'Q'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">(Char -&gt; String -&gt; String)
-&gt; ReadP Char -&gt; ReadP String -&gt; ReadP String
forall (f :: * -&gt; *) a b c.
Applicative f =&gt;
(a -&gt; b -&gt; c) -&gt; f a -&gt; f b -&gt; f c
</span><a href="../../base/src/GHC.Base.html#liftA2"><span class="hs-identifier hs-var">liftA2</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">:</span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char -&gt; ReadP Char
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#char"><span class="hs-identifier hs-var">char</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'.'</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(Char -&gt; Bool) -&gt; ReadP String
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#munch"><span class="hs-identifier hs-var">munch</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Bool
</span><a href="../../base/src/GHC.Unicode.html#isDigit"><span class="hs-identifier hs-var">isDigit</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">ReadP String -&gt; ReadP String -&gt; ReadP String
forall a. ReadP a -&gt; ReadP a -&gt; ReadP a
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#%3C%2B%2B"><span class="hs-operator hs-var">&lt;++</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; ReadP String
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;&quot;</span></span><span>
</span><span id="line-185"></span><span>
</span><span id="line-186"></span><span>        </span><span class="hs-comment">-- time zone</span><span>
</span><span id="line-187"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'z'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">ReadP String
</span><a href="#local-6989586621679072321"><span class="hs-identifier hs-var">numericTZ</span></a></span><span>
</span><span id="line-188"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'Z'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">(Char -&gt; Bool) -&gt; ReadP String
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#munch1"><span class="hs-identifier hs-var">munch1</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Bool
</span><a href="../../base/src/GHC.Unicode.html#isAlpha"><span class="hs-identifier hs-var">isAlpha</span></a></span><span> </span><span class="annot"><span class="annottext">ReadP String -&gt; ReadP String -&gt; ReadP String
forall a. ReadP a -&gt; ReadP a -&gt; ReadP a
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#%3C%2B%2B"><span class="hs-operator hs-var">&lt;++</span></a></span><span>
</span><span id="line-189"></span><span>             </span><span class="annot"><span class="annottext">ReadP String
</span><a href="#local-6989586621679072321"><span class="hs-identifier hs-var">numericTZ</span></a></span><span>
</span><span id="line-190"></span><span>
</span><span id="line-191"></span><span>        </span><span class="hs-comment">-- seconds since epoch</span><span>
</span><span id="line-192"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'s'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char -&gt; ReadP Char
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#char"><span class="hs-identifier hs-var">char</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'-'</span></span><span> </span><span class="annot"><span class="annottext">ReadP Char -&gt; ReadP String -&gt; ReadP String
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; String) -&gt; ReadP String -&gt; ReadP String
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#fmap"><span class="hs-identifier hs-var">fmap</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'-'</span></span><span class="annot"><span class="annottext">Char -&gt; String -&gt; String
forall a. a -&gt; [a] -&gt; [a]
</span><span class="hs-glyph hs-var">:</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(Char -&gt; Bool) -&gt; ReadP String
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#munch1"><span class="hs-identifier hs-var">munch1</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Bool
</span><a href="../../base/src/GHC.Unicode.html#isDigit"><span class="hs-identifier hs-var">isDigit</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-193"></span><span>             </span><span class="annot"><span class="annottext">ReadP String -&gt; ReadP String -&gt; ReadP String
forall a. ReadP a -&gt; ReadP a -&gt; ReadP a
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#%3C%2B%2B"><span class="hs-operator hs-var">&lt;++</span></a></span><span> </span><span class="annot"><span class="annottext">(Char -&gt; Bool) -&gt; ReadP String
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#munch1"><span class="hs-identifier hs-var">munch1</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Bool
</span><a href="../../base/src/GHC.Unicode.html#isDigit"><span class="hs-identifier hs-var">isDigit</span></a></span><span>
</span><span id="line-194"></span><span>
</span><span id="line-195"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-identifier">_</span></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String -&gt; ReadP String
forall (m :: * -&gt; *) a. MonadFail m =&gt; String -&gt; m a
</span><a href="../../base/src/Control.Monad.Fail.html#fail"><span class="hs-identifier hs-var">fail</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; ReadP String) -&gt; String -&gt; ReadP String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;Unknown format character: &quot;</span></span><span> </span><span class="annot"><span class="annottext">String -&gt; String -&gt; String
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; String
forall a. Show a =&gt; a -&gt; String
</span><a href="../../base/src/GHC.Show.html#show"><span class="hs-identifier hs-var">show</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072333"><span class="hs-identifier hs-var">c</span></a></span><span>
</span><span id="line-196"></span><span>
</span><span id="line-197"></span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#timeSubstituteTimeSpecifier"><span class="hs-identifier hs-type">timeSubstituteTimeSpecifier</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Time.Format.Locale.html#TimeLocale"><span class="hs-identifier hs-type">TimeLocale</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Char</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-198"></span><span id="timeSubstituteTimeSpecifier"><span class="annot"><span class="annottext">timeSubstituteTimeSpecifier :: TimeLocale -&gt; Char -&gt; Maybe String
</span><a href="Data.Time.Format.Parse.Class.html#timeSubstituteTimeSpecifier"><span class="hs-identifier hs-var hs-var">timeSubstituteTimeSpecifier</span></a></span></span><span> </span><span id="local-6989586621679072303"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072303"><span class="hs-identifier hs-var">l</span></a></span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'c'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -&gt; Maybe String
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; Maybe String) -&gt; String -&gt; Maybe String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; String
</span><a href="Data.Time.Format.Locale.html#dateTimeFmt"><span class="hs-identifier hs-var hs-var">dateTimeFmt</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072303"><span class="hs-identifier hs-var">l</span></a></span><span>
</span><span id="line-199"></span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#timeSubstituteTimeSpecifier"><span class="hs-identifier hs-var">timeSubstituteTimeSpecifier</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'R'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -&gt; Maybe String
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;%H:%M&quot;</span></span><span>
</span><span id="line-200"></span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#timeSubstituteTimeSpecifier"><span class="hs-identifier hs-var">timeSubstituteTimeSpecifier</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'T'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -&gt; Maybe String
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;%H:%M:%S&quot;</span></span><span>
</span><span id="line-201"></span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#timeSubstituteTimeSpecifier"><span class="hs-identifier hs-var">timeSubstituteTimeSpecifier</span></a></span><span> </span><span id="local-6989586621679072301"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072301"><span class="hs-identifier hs-var">l</span></a></span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'X'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -&gt; Maybe String
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; Maybe String) -&gt; String -&gt; Maybe String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; String
</span><a href="Data.Time.Format.Locale.html#timeFmt"><span class="hs-identifier hs-var hs-var">timeFmt</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072301"><span class="hs-identifier hs-var">l</span></a></span><span>
</span><span id="line-202"></span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#timeSubstituteTimeSpecifier"><span class="hs-identifier hs-var">timeSubstituteTimeSpecifier</span></a></span><span> </span><span id="local-6989586621679072299"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072299"><span class="hs-identifier hs-var">l</span></a></span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'r'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -&gt; Maybe String
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; Maybe String) -&gt; String -&gt; Maybe String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; String
</span><a href="Data.Time.Format.Locale.html#time12Fmt"><span class="hs-identifier hs-var hs-var">time12Fmt</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072299"><span class="hs-identifier hs-var">l</span></a></span><span>
</span><span id="line-203"></span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#timeSubstituteTimeSpecifier"><span class="hs-identifier hs-var">timeSubstituteTimeSpecifier</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'D'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -&gt; Maybe String
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;%m/%d/%y&quot;</span></span><span>
</span><span id="line-204"></span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#timeSubstituteTimeSpecifier"><span class="hs-identifier hs-var">timeSubstituteTimeSpecifier</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'F'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -&gt; Maybe String
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;%Y-%m-%d&quot;</span></span><span>
</span><span id="line-205"></span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#timeSubstituteTimeSpecifier"><span class="hs-identifier hs-var">timeSubstituteTimeSpecifier</span></a></span><span> </span><span id="local-6989586621679072297"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072297"><span class="hs-identifier hs-var">l</span></a></span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'x'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -&gt; Maybe String
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; Maybe String) -&gt; String -&gt; Maybe String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; String
</span><a href="Data.Time.Format.Locale.html#dateFmt"><span class="hs-identifier hs-var hs-var">dateFmt</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072297"><span class="hs-identifier hs-var">l</span></a></span><span>
</span><span id="line-206"></span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#timeSubstituteTimeSpecifier"><span class="hs-identifier hs-var">timeSubstituteTimeSpecifier</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'h'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -&gt; Maybe String
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;%b&quot;</span></span><span>
</span><span id="line-207"></span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#timeSubstituteTimeSpecifier"><span class="hs-identifier hs-var">timeSubstituteTimeSpecifier</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><span class="hs-identifier">_</span></span><span>  </span><span class="annot"><span class="annottext">Char
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe String
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>
</span><span id="line-208"></span><span>
</span><span id="line-209"></span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#durationParseTimeSpecifier"><span class="hs-identifier hs-type">durationParseTimeSpecifier</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Time.Format.Locale.html#TimeLocale"><span class="hs-identifier hs-type">TimeLocale</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Data.Time.Format.Parse.Class.html#ParseNumericPadding"><span class="hs-identifier hs-type">ParseNumericPadding</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Char</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/Text.ParserCombinators.ReadP.html#ReadP"><span class="hs-identifier hs-type">ReadP</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-210"></span><span id="durationParseTimeSpecifier"><span class="annot"><span class="annottext">durationParseTimeSpecifier :: TimeLocale -&gt; Maybe ParseNumericPadding -&gt; Char -&gt; ReadP String
</span><a href="Data.Time.Format.Parse.Class.html#durationParseTimeSpecifier"><span class="hs-identifier hs-var hs-var">durationParseTimeSpecifier</span></a></span></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679072295"><span class="annot"><span class="annottext">Maybe ParseNumericPadding
</span><a href="#local-6989586621679072295"><span class="hs-identifier hs-var">mpad</span></a></span></span><span> </span><span id="local-6989586621679072294"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072294"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-211"></span><span>    </span><span id="local-6989586621679072293"><span class="annot"><span class="annottext">padopt :: Int -&gt; ReadP String
</span><a href="#local-6989586621679072293"><span class="hs-identifier hs-var hs-var">padopt</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding -&gt; Int -&gt; ReadP String
</span><a href="Data.Time.Format.Parse.Class.html#parsePaddedSignedDigits"><span class="hs-identifier hs-var">parsePaddedSignedDigits</span></a></span><span> </span><span class="annot"><span class="annottext">(ParseNumericPadding -&gt; Int -&gt; ReadP String)
-&gt; ParseNumericPadding -&gt; Int -&gt; ReadP String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding
-&gt; Maybe ParseNumericPadding -&gt; ParseNumericPadding
forall a. a -&gt; Maybe a -&gt; a
</span><a href="../../base/src/Data.Maybe.html#fromMaybe"><span class="hs-identifier hs-var">fromMaybe</span></a></span><span> </span><span class="annot"><span class="annottext">ParseNumericPadding
</span><a href="Data.Time.Format.Parse.Class.html#NoPadding"><span class="hs-identifier hs-var">NoPadding</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe ParseNumericPadding
</span><a href="#local-6989586621679072295"><span class="hs-identifier hs-var">mpad</span></a></span><span>
</span><span id="line-212"></span><span>    </span><span class="hs-keyword">in</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072294"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-213"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'y'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Int -&gt; ReadP String
</span><a href="#local-6989586621679072293"><span class="hs-identifier hs-var">padopt</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span>
</span><span id="line-214"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'b'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Int -&gt; ReadP String
</span><a href="#local-6989586621679072293"><span class="hs-identifier hs-var">padopt</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span>
</span><span id="line-215"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'B'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Int -&gt; ReadP String
</span><a href="#local-6989586621679072293"><span class="hs-identifier hs-var">padopt</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span>
</span><span id="line-216"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'w'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Int -&gt; ReadP String
</span><a href="#local-6989586621679072293"><span class="hs-identifier hs-var">padopt</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span>
</span><span id="line-217"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'d'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Int -&gt; ReadP String
</span><a href="#local-6989586621679072293"><span class="hs-identifier hs-var">padopt</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span>
</span><span id="line-218"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'D'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Int -&gt; ReadP String
</span><a href="#local-6989586621679072293"><span class="hs-identifier hs-var">padopt</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span>
</span><span id="line-219"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'h'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Int -&gt; ReadP String
</span><a href="#local-6989586621679072293"><span class="hs-identifier hs-var">padopt</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span>
</span><span id="line-220"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'H'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Int -&gt; ReadP String
</span><a href="#local-6989586621679072293"><span class="hs-identifier hs-var">padopt</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span>
</span><span id="line-221"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'m'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Int -&gt; ReadP String
</span><a href="#local-6989586621679072293"><span class="hs-identifier hs-var">padopt</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span>
</span><span id="line-222"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'M'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Int -&gt; ReadP String
</span><a href="#local-6989586621679072293"><span class="hs-identifier hs-var">padopt</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span>
</span><span id="line-223"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'s'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">ReadP String
</span><a href="Data.Time.Format.Parse.Class.html#parseSignedDecimal"><span class="hs-identifier hs-var">parseSignedDecimal</span></a></span><span>
</span><span id="line-224"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'S'</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">ReadP String
</span><a href="Data.Time.Format.Parse.Class.html#parseSignedDecimal"><span class="hs-identifier hs-var">parseSignedDecimal</span></a></span><span>
</span><span id="line-225"></span><span>        </span><span class="annot"><span class="annottext">Char
</span><span class="hs-identifier">_</span></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String -&gt; ReadP String
forall (m :: * -&gt; *) a. MonadFail m =&gt; String -&gt; m a
</span><a href="../../base/src/Control.Monad.Fail.html#fail"><span class="hs-identifier hs-var">fail</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; ReadP String) -&gt; String -&gt; ReadP String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;Unknown format character: &quot;</span></span><span> </span><span class="annot"><span class="annottext">String -&gt; String -&gt; String
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; String
forall a. Show a =&gt; a -&gt; String
</span><a href="../../base/src/GHC.Show.html#show"><span class="hs-identifier hs-var">show</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072294"><span class="hs-identifier hs-var">c</span></a></span><span>
</span><span id="line-226"></span></pre></body></html>